
   6 :RETURN 
   7 GOTO 5160
   8 M=5;N=0;W=0;U=0
  10 CLEAR ;NT=0
  75 CLEAR 
  80 BC=RND ((3)-1)+RND (32)×8;FC=BC+4+RND (32)×8
  90 A=0;B=0;C=0;D=0;H=0;O=0;S=0
 120 CY=35
 122 PRINT "YOUR WINNINGS = $",#1,W,".",U,;IF U=0PRINT "0";GOTO 125
 123 PRINT 
 125 N=N-25;IF N<0M=M-1;N=75
 126 IF M=-1GOTO 5100
 127 IF (JY(1))+(E=1)E=0;GOTO 130
 128 GOTO 127
 130 PRINT "MONEY IN PLAY = $",#1,M,".",N,;IF N=0PRINT "0   ";GOTO 181
 140 PRINT "   
 181 BOX 0,0,110,33,1;BOX 30,0,29,29,2;BOX 0,0,29,29,2;BOX -30,0,29,29,2;BOX 0,-32,160,22,2
 190 X=30;Y=0;GOSUB 6000
 200 GOSUB 2000+RND (6)×10
 280 D=D+1;X=0;GOSUB 6000
 290 GOSUB 2000+RND (6)×10
 300 D=D+1;X=-30
 355 GOSUB 2000+RND (6)×10
 360 I=11;IF H=3GOTO 5000
 380 I=13;IF O=3GOTO 5000
 420 I=15;IF B=3GOTO 5000
 440 I=18;IF S=3GOTO 5000
 460 IF A=3GOTO 5000
 480 I=3;IF H=1GOTO 5000
 500 I=5;IF H=2GOTO 5000
 523 CX=-7;CY=-30
 525 PRINT "LOSE";NT=2;FOR Z=1TO 5;MU=51;NEXT Z;NT=0
 540 GOTO 80
2010 A=A+1;GOSUB 3000
2015 RETURN 
2020 S=S+1;GOSUB 3020
2025 RETURN 
2030 B=B+1;GOSUB 3060
2035 RETURN 
2040 O=O+1;GOSUB 3140
2045 RETURN 
2050 GOSUB 4000
2055 RETURN 
2060 GOSUB 4100
2065 C=C+1
2090 IF C=1IF D=0H=H+1
2100 IF C=2IF D=1H=H+1
2110 IF C=3H=3
2120 RETURN 
3000 BOX X,Y,25,11,3;BOX X-9,Y,1,9,3;BOX X+9,Y,1,9,3;RETURN 
3020 LINE X,Y+12,0;LINE X-9,Y-12,1;LINE X+12,Y+3,1
3035 LINE X-12,Y+3,1;LINE X+9,Y-12,1;LINE X,Y+12,1;RETURN 
3060 BOX X,Y,3,19,1;BOX X,Y,7,13,1;BOX X,Y-1,11,11,1
3075 BOX X,Y-2,15,9,1;BOX X,Y-2,17,7,1;BOX X,Y-5,21,2,1;RETURN 
3140 BOX X,Y,21,7,3
3150 BOX X,Y,7,21,3
3200 RETURN 
4000 BOX X,Y,25,1,1;BOX X,Y,23,5,1;BOX X,Y,21,7,1;BOX X,Y,19,9,1
4040 BOX X,Y,15,11,1;BOX X,Y,9,13,1;RETURN 
4100 BOX X-8,Y-2,7,7,1;BOX X-2,Y-8,7,7,1;BOX X+8,Y-7,7,7,1
4130 LINE X-8,Y+2,0;LINE X+6,Y+11,1;LINE X-2,Y-4,1;LINE X+6,Y+11,1;LINE X+8,Y-3,1;RETURN 
5000 CX=-7;CY=-30
5001 PRINT "WIN!"
5003 NT=9;MU=51;MU=48;MU=53;MU=48;MU=48;MU=51;MU=52;MU=48;MU=53;MU=48;MU=48;MU=48;MU=48;NT=0
5007 IF A=3GOTO 7000
5010 PRINT "PAYOFF = ",#1,I,":1
5020 U=U+I×25
5030 IF U>75U=U-100;W=W+1;GOTO 5030
5060 GOTO 80
5100 IF W=0IF U=0PRINT "YOU HAVE GONE BROKE!";GOTO 5150
5110 PRINT "PULL TRIGGER TO CONTINUE!
5120 IF TR(1)M=W;N=U;W=0;U=0;E=1;GOTO 80
5130 GOTO 5120
5150 GOSUB 6000
5155 GOSUB 6000
5160 CLEAR 
5161 PRINT "THIS IS A 25 CENT SLOT    MACHINE.
5162 PRINT "PULL TRIGGER TO START!
5163 PRINT "YOU BEGIN WITH $5.
5165 PRINT 
5170 PRINT "NEXT PLAYER PLEASE!"
5180 IF TR(1)E=1;GOTO 8
5190 GOTO 5180
6000 FOR Z=1TO 500;NEXT Z;RETURN 
7000 &(21)=15;PRINT "JACKPOT!!!
7010 FOR Z=255TO 30STEP -1;&(19)=Z;NEXT Z
7015 FOR Z=1TO 999;NEXT Z
7020 FOR Z=30TO 255;&(19)=Z;NEXT Z
7030 W=W+5;&(19)=0;GOTO 80
>RUN 
